home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / utils / fsck.zoo / __full_exa.s < prev    next >
Text File  |  1986-04-23  |  4KB  |  202 lines
  1. ************************************
  2. * FULLSCREEN 460*274 68000 ROUTINE *
  3. * CODED BY KILLER D FROM CONNEXION *
  4. * ON 9/90 .  (C) KILLER D Software *
  5. ************************************
  6. *
  7. * CETTE ROUTINE AFFICHE UN FICHIER *.KID
  8. * A L'ECRAN. IL FAUT CREER UN BUFFER DE 63 K0 POUR
  9. * L'ECRAN ET FAIRE UN XBIOS(5) POUR CALER LES
  10. * ADRESSES XBIOS(3) ET XBIOS(2) SUR L'ADRESSE >>PICTURE<<
  11. * (LA OU EST L'ECRAN).
  12. *
  13. * GLORY CONNEXION
  14. * GLORY KILLER D & HUTCH
  15. *
  16. * (EXCUSEZ DE METTRE ICI CES MACROS POURLINGUES, MAIS CA SIMPLIFIE
  17. * LA VIE...)
  18.  
  19. TERM      macro               
  20.           clr.w     -(sp)
  21.           trap      #1
  22.           endm
  23. CLS       macro
  24.       CCONOUT #27
  25.       CCONOUT #'E'
  26.       endm
  27. WAIT      macro               
  28.           move.w    #7,-(sp)
  29.           trap      #1
  30.           addq.l    #2,sp
  31.           endm
  32. PRINTLINE macro     $\1
  33.           pea       \1        
  34.           move.w    #9,-(sp)
  35.           trap      #1
  36.           addq.l    #6,sp
  37.           endm
  38. SUPER     macro
  39.           clr.l     -(sp)       
  40.           move.w    #$20,-(sp)
  41.           trap      #1
  42.           addq.l    #6,sp
  43.           move.l    d0,PILE  
  44.           endm
  45. USER      macro
  46.           move.l    PILE,-(sp)
  47.           move.w    #$20,-(sp) 
  48.           trap      #1
  49.           addq.l    #6,sp
  50.           endm
  51. ; FIN DES MACROS...
  52.  
  53.     SUPER            ; EN SUPERVISEUR
  54.  
  55.     DC.W $A00A          ; PLUS DE SOURIS 
  56.  
  57.     MOVE    #15754,D0   ; L'ECRAN FAIT 63020 OCTETS: 63020/4-1=15754
  58.     
  59. * METTRE VOS ADRESSES ICI ET LA DESSOUS:
  60.  
  61.  
  62.  LEA    $78000,A0   ; ADRESSE DESTINATION(METTEZ LA VOTRE)
  63.  LEA    $68000,A2   ; SINON CA MARCHE PAS... (IL BLOQUE EN FOND DE RAM)
  64.  
  65.     LEA    PICTURE+34,A1  ; L'IMAGE EST 34 OCT APRES LE DEBUT DU
  66.                    ; FICHIER *.KID
  67.  
  68. AFF1    MOVE.L    (A1),(A0)+
  69.     MOVE.L    (A1)+,(A2)+
  70.     DBF    D0,AFF1
  71.     
  72.     *COULEURS:
  73.     
  74.     MOVEM.L    PICTURE+2,D0-D7
  75.     MOVEM.L    D0-D7,$FF8240
  76.     
  77.     MOVE.L    #$78000,BASE    *INIT ADR ECR
  78.     MOVE.B    #7,$FF8201
  79.     USER
  80.  
  81.  
  82.  
  83.  
  84.     PEA    ROUTINE
  85.     MOVE.W    #$26,-(A7)
  86.     TRAP    #14
  87.     ADDQ.L    #6,A7
  88.  
  89.     TERM
  90.  
  91. ;    
  92. ; ROUTINE A EXECUTER EN SUPERVISEUR:
  93. ;
  94.  
  95. ROUTINE    DC.W    $A00A
  96.     LEA    $FFFFFA13.W,A6
  97.     MOVE.B    (A6),D7
  98.     MOVE.B    2(A6),D6
  99.     CLR.B    (A6)
  100.     CLR.B    2(A6)
  101.     LEA    $FFFF8209.W,A0
  102.     LEA    $57(A0),A1
  103.     LEA    1(A0),A2
  104.     MOVE.B    (A1),D5
  105.     CLR.B    D0
  106.     MOVEQ    #2,D1
  107.     LEA    $70.W,A5
  108.     MOVEA.L    (A5),A4
  109.     LEA    K4D4,A3
  110.     MOVE.L    A3,(A5)
  111.     MOVE.B    #$39,D4
  112.     LEA    $FFFFFC02.W,A3
  113. K4C4    CMP.B    (A3),D4
  114.     BNE.S    K4C4
  115.     MOVE.L    A4,(A5)
  116.     MOVE.B    D5,(A1)
  117.     MOVE.B    D6,2(A6)
  118.     MOVE.B    D7,(A6)
  119.     RTS
  120. K4D4    MOVE.W    #$59B,D2
  121. K4D8    DBF    D2,K4D8
  122.     MOVE.B    #$10,D2
  123.     MOVE.B    D0,(A2)
  124.     MOVEQ    #1,D3
  125. K4E4    DBF    D3,K4E4
  126.     MOVE.B    D1,(A2)
  127. K4EA    MOVE.B    (A0),D3
  128.     BEQ.S    K4EA
  129.     SUB.B    D3,D2
  130.     LSL.B    D2,D3
  131.     MOVE.W    #$E2,D2
  132.     MOVEQ    #$1E,D3
  133. K4F8    DBF    D3,K4F8
  134. K4FC    NOP
  135.     MOVE.B    D1,(A1)
  136.     MOVE.B    D0,(A1)
  137.     MOVEQ    #$1C,D3
  138. K504    DBF    D3,K504
  139.     MOVE.B    D0,(A2)
  140.     MOVE.B    D1,(A2)
  141.     MOVE.W    #2,D3
  142. K510    DBF    D3,K510
  143.     NOP
  144.     MOVE.B    D1,(A1)
  145.     NOP
  146.     MOVE.B    D0,(A1)
  147.     MOVE.W    #1,D3
  148. K520    DBF    D3,K520
  149.     DBF    D2,K4FC
  150.     MOVE.B    D1,(A1)
  151.     MOVE.B    D0,(A1)
  152.     MOVEQ    #$1C,D3
  153. K52E    DBF    D3,K52E
  154.     MOVE.B    D0,(A2)
  155.     MOVE.B    D1,(A2)
  156.     MOVE.W    #$2C,D2
  157.     MOVEQ    #2,D3
  158. K53C    DBF    D3,K53C
  159.     MOVE.B    D1,(A1)
  160.     NOP
  161.     MOVE.B    D0,(A1)
  162.     MOVE.B    D0,(A2)
  163.     MOVE.W    #1,D3
  164. K54C    DBF    D3,K54C
  165.     MOVE.B    D1,(A2)
  166. K552    MOVE.B    D1,(A1)
  167.     MOVE.B    D0,(A1)
  168.     MOVEQ    #$1C,D3
  169. K558    DBF    D3,K558
  170.     MOVE.B    D0,(A2)
  171.     MOVE.B    D1,(A2)
  172.     MOVE.W    #2,D3
  173. K564    DBF    D3,K564
  174.     NOP
  175.     MOVE.B    D1,(A1)
  176.     NOP
  177.     MOVE.B    D0,(A1)
  178.     MOVE.W    #1,D3
  179. K574    DBF    D3,K574
  180.     NOP
  181.     DBF    D2,K552
  182.     RTE
  183.  
  184.  
  185.  
  186.     SECTION DATA
  187.     
  188. PICTURE    INCBIN    "B:\KIDOS.KID"
  189.     
  190.     SECTION BSS
  191.  
  192. BASE    DS.L    1
  193.     EVEN
  194.     DS.L    200
  195. PILE    DS.L    2
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.